FreeReport a tisk RTF

Otázka od: Tomas Bradle

8. 11. 2004 16:26

Zdravim vsechny,

mam sestavu na ktere mam RTF objekt a par obyc textu. Ten RTF natahuji ze
souboru takto

procedure TfrTisk2Main.frTiskGetValue(const ParName: String; var ParValue:
Variant);
var
  sl: TStringList;
begin
if ParName = 'N1' then
  try
    sl:=TStringList.create;
    sl.LoadFromFile('reText.rtf');
    ParValue:=sl.text;
   finally
    sl.free;
   end; {try}
end;

U me to chodi (Win XP SP2), ale u zakaznika (win98 SE) to vytiskne primo
zdrojak toho RTFka.

Nevi nekdo proc ?

diky

Tomas Bradle
t.bradle@sanet.cz
t.bradle@worldonline.cz